(682) 933-1616 



10 'JUMBLE VERSION 2 

28 'BY WILLIAM BARDEN 

38 'ORANGE COUNTV (OCTUG), SEPTEMBER 1973, PAGE 11 

40 '8/9/1979, 9 AM 

60 'RENUMBERED AND CHANGED BY C U. EVANS, 

70 '9806 AMBER TRAIL, SUN CITV, A2 85351 

100 '«==»«»««==«x=««« 

110 Q=0 

120 DIM A(6> 

130 CLS: PRINT TAB < 22) "JUMBLE 

140 PRINT-THIS PROGRAM PRINTS POSSIBLE PERMUTATIONS OF 

150 PRINT-2 TO 6 LETTERS. "PRINT 

160 1-0:' I=LETTER POSITION 

170 INPUT-WHAT ARE YOUR LETTERS"; L$ 

190 A*<I)«HID*<L*, 1+1,1) 

200 IF A*<I> - "" CLS:GOTO 220 

210 I«I+l:GOTO 190 

220 1*1-1 

230 IF I<5 THEN 270 

240 FOR E«5 TO STEP -1 

250 J-5 

260 GOSUB 500 

270 IF I<4 THEN 310 

280 FOR D«4 TO STEP -1 

290 J=4 

300 GOSUB 500 

310 IF I<3 THEN 350 

320 FOR 03 TO STEP -1 

330 J-3 

340 GOSUB 500 

350 IF I<2 THEN 390 

360 FOR B»2 TO STEP -1 

370 J-2 

380 GOSUB 500 

390 FOR A»l TO STEP -1 

400 J=l 

410 GOSUB 500 

420 GOSUB 570 

430 NEXT 

440 IF I>1 NEXT 

450 IF I>2 NEXT 

460* IF I >3 NEXT 

478 IF I>4 NEXT 

480 PRINT"END OF LIST-HIT ENTER TO REPEAT. 

483 Z*»INKEY*:IF Z**"" THEN 483 

486 CLS:Q-0:GOTO 230:' 

490 ' =«==SUBROUTINE===== 

500 B*«A*<0) 

510 FOR K«0 TO J-l 

520 A*<K)«A*<K+1) 

530 NEXT 

540 R*(K)=B* 

550 RETURN 

560 ' x====print SUBROUTINE====» 

570 FOR K«I TO 8 STEP-1 

580 PRINT CHR*<23)A*(K>; 

590 NEXT 

600 Q-Q+i 

610 PRINT" ";Q, 

620 IFQ/24«INT(Q/24)PRINT: PRINT" HIT ENTER TO CONTINUE. 



"ELSERETUPN 



TARGET REFERENCED IN LINE « 

A 120 390 

A$ 190 200 560 520 520 540 530 

B 360 

B* 500 543 

C 320 

D 280 

E 240 

I 160 190 190 200 210 210 220 220 230 270 218 250 

440 450 460 470 570 

J 250 290 220 270 400 510 

K 510 520 520 540 570 588 

L* 178 190 

Q 110 486 688 600 610 620 620 

Z* 483 483 638 638 



P-P+l : GOTO 1920 



1 * TE xT EDITOR : WRITTEN BY ZVI DERSHOMITZ 

2 ' 

3 ' 

1000 CLS 
1010 P-15360 

1020 IF P<15360 OR P>16383 THEN P«15360 

1030 C«PEEK<P> 

1040 POKE P. 191 

1050 A*»INKEV* 

1060 IF LEN<A*>«0 THEN 1050 

1070 B-ASCCA*) 

1080 IF B>-32 AND BO90 THEN POKE P, B 

1098 POKE P, C 

1100 IF B-8 THEN P»P-1 : GOTO 1020 

1110 IF B«9 THEN P-P+l : GOTO 1020 

1120 IF B-10 THEN P=P+64 : GOTO 1020 

1130 IF B»91 THEN P-P-64 : GOTO 1020 

1140 IF B-13 THEN P«INT<P/64)*64+64 : GOTO 1020 

1158 IF B-31 THEN 1170 

1168 GOTO 1030 

1170 FOR T-0 TO 15 

1180 FOR TT»0 TO 63 

1190 LPRINT CHR*<PEEK<T*64+TT+15360)); 

1200 NEXT 

1205 LPRINT 

1210 NEXT 

1220 GOTO 1030 



A 1050/* 1060/* 1070/* 

B 1070 1080/3 1100 1110 1120 1130 1140 1150 

C 1030 1090 

P 1010 1020/3 1030 1040 1080/3 1090 1100/2 1110/2 1120/2 

1130/2 1140/2 

T 1170 1190 

TT 1130 1190 
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HANGMAN PROGRAM : WRITTEN BV ZVI DERSHOWITZ 



1 '- 

2 ' 

3 ' 

ieee random 

1919 INPUT "LEVEL OF PLRV (1-EflSV 2-HARD)";L5 

1826 as 

1838 GOSUB 1858 

1848 PRINT 9 832, "LETTERS GUESSED:" 

1858 ' CHOOSE RANDOM WORD 

1868 FOR T»l TO RND<21) : READ A$ : NEXT 

1978 FOR T«8 TO LEN<A$)-1 : POKE T+15368, 45 : NEXT 

1888 PRINT 9 256, "GUESS A LETTER"; 

1898 PRINT • 328, ""l 

1188 B$»INKEV$ : IF LEN(B$)-8 THEN 1188 

1U8 IF B$>-"A" AND B$<-"Z" THEN 1128 ELSE 1188 

1128 F«raT0LEN<LG$):IFB$=HID$<LG$,T,l)THENPRINTf329, "VOU CHOSE THAT BEFORE' 

T«lT0ie8e : NEXT : PRINT8328, " "J : G0T0188e 

1138 NEXT 

1148 LG*=LG$+B$ 

1150 PRINT t 896, LG$ 

1168 FOR T»l TO LEN<A$) 

1179 IF NID$<A$,T,1)»B$ THEN POKE 15359+T, ASC<B$> : LL»LL*1 : NZ-199 

1188 NEXT 

1198 IF NZ-198 THEN 1258 

1288 E-E+l 

1218 ON E GOSUB 1298, 1348, 1399, 1478, 1548, 1619, 1679, 1729, 1769, 1819 

1229 IF E<19 THEN NZ»8 : GOTO 1188 

1238 CLS . PRINT "VOU HAVE BEEN HUNG!!!!!!!!" 

1248 PRINT'VOU LOSE! !!!!!!!!!!!" :F0RT»1T019: PR INT" THEWORDWAS"; A$ NEXT END 

1259 IF LL<LEN<A$) THEN NZ»9 : GOTO 1188 

1268 CLS : PRINT "VOU HAVE WON! !!!!!!!!!!!!! " 

1278 PRINT "VOU WON'T BE HUNG! !!!!!!!!!!!!" 

1288 END 

1298 ' SUB FOR DRAWING HEAD 

1388 FOR T-183 TO 118 : SET<T,5) : SET<T,8) 

1318 FOR T-181 TO 112 : SET<T,6> : SET<T,7) 

1328 IF L5-2 THEN E-E+l : GOSUB 1348 

1338 RETURN 

1348 ' SUB FOR DRAWING BODY 

1358 FOR T«186 TO 187 : SET<T,9> : SET<T,18) 

1368 FOR T-182 TO 111 : SET<T, 11) : NEXT 

1378 FOR TT«12 TO 21 : FOR T=189 TO 113 : SETCT, TT) : NEXT : NEXT 

1388 RETURN 

1398 ' SUB FOR DRAWING LEFT ARM 

1488 SET(99, 13) 

1419 FOR T-97 TO 99 . SET<T, 12) : NEXT 

1428 FOR T-95 TO 99 : SET<T, 11) : NEXT 

1438 FOR T»94 TO 98 : SETCT, 18) : NEXT 

1448 FOR T«94 TO 96 : SET(T,9) NEXT 

1458 IF L5-2 THEN E«E*1 : GOSUB 1478 

1468 RETURN 

1478 ' SUB FOR DRAWING RIGHT ARM 

1488 SET(114,13) 

1498 FOR T«114 TO 116 : SET(T,12) : NEXT 

1588 FOR T-114 TO 118 : SETCT, 11) : NEXT 

1519 FOR T»115 TO 119 : SET<T, 19) : NEXT 

1529 FOR T«117 TO 119 : SET(T t 9) : NEXT 

1538 RETURN 

1548 ' SUB FOR DRAWING LEFT LEG 

1558 FOR T-189 TO 184 : SET (T, 22) : NEXT 



NEXT 
NEXT 



NEXT 



1569 
1579 
1589 
1599 
1688 
1619 
1629 
1639 
1649 
1659 
1669 
1678 
1688 
1690 
1788 
1718 
1729 
1739 
1749 
1759 
1769 
1779 
1789 
1799 
1888 
1818 
1828 
1838 
1848 
1859 
1869 
1879 
1889 
1899 
1989 
1919 
1929 
1939 



FOR T=99 TO 193 

FOR TT*24 TO 25 

FOR TT*26 TO 39 

IF L5»2 THEN E=E*1 

RETURN 

' SUB FOR DRAWING RIGHT LEG 



SET(T,23) : NEXT 

FOR T=98 TO 192 : 

FOR T=97 TO 191 : 

GOSUB 1618 



SET<T,TT) 
SET(T,TT) 



: SET(T,22) : NEXT 
: SET<T,23) : NEXT 
FOR T-lll TO 115 
FOR T-112 TO 116 : 



SETCT, TT) 
SET<T,TT> 



NEXT 



NEXT 
NEXT 



NEXT 
NEXT 



NEXT 
NEXT 



NEXT 
NEXT 



NEXT 



FOR T=199 TO 113 

FOR T«119 TO 114 

FOR TT«24 TO 25 

FOR TT*26 TO 39 

RETURN 

' SUB FOR DRAWING LEFT HAND 

FOR T»91 TO 93 : SET<T,7) : SET<T,9) 

FOR T«88 TO 93 : SETCT, 8) : NEXT 

IF L5«2 THEN E«E+1 : GOSUB 1729 

RETURN 

' SUB FOR DRAWING RIGHT HAND 

FOR T«129 TO 122 : SET(T,7) : SET(T,9) : 

FOR T»129 TO 125 : SET(T, 8) : NEXT 

RETURN 

' SUB FOR DRAWING LEFT FOOT 

FOR T«96 TO 192 : SETCT, 31) : NEXT 

FOR T*94 TO 192 : SET<T,32) : NEXT 

IF L5»2 THEN E«E+1 : GOSUB 1818 

RETURN 

' SUB FOR DRAWING RIGHT FOOT 

FOR T-lll TO 119 : SET<T,31) : NEXT 

FOR T«ill TO 121 : SET(T,32> : NEXT 

RETURN 

' SUB FOR DRAWING POLE 

FOR TT=4 TO 1 STEP -1 : FOR T«196 TO 197 

FOR T«78 TO 197 : SET<T,9) : NEXT 

FOR T*8 TO 48 : SET<78, T) : SETC79, T) : NEXT 

FOR T=68 TO 127 : SET<T,41) : NEXT 

RETURN 

' DATA STARTS HERE 

DATA TABLE, CHAIR, FLOOR, COUCH, COMPUTER, SHOE, LIGHT. BED, BOARD, BAG 
DATA SIGN, SILK, WAGON, BELL, TREE, LION, LOG, LOAN, GARDEN, SACK, SNOWBALL 



SET(T,TT) : NEXT : NEXT 



A 
B 

E 

L5 

LG 

LL 

NZ 

T 



TT 



1868/$ 1878/$ 1168/$ 1170/$ 1248/$ 1250/$ 

1188/$2 1118/$2 1128/$ 1148/$ 1178/$2 

1208/2 1210 1220 1320/2 1450/2 1590/2 1780/2 1798/2 

1010 1320 1450 1590 1700 1790 

1120/$2 1140/$2 1150/$ 

1170/2 1250 

1170 1190 1220 1250 

1060 1070/2 1120/3 1160 1170/2 1240 1300/3 1310/3 

1350/3 1360/2 1370/2 1410/2 1420/2 1430/2 1440/2 

1490/2 1500/2 1518/2 1520/2 1550/2 1560/2 1570/2 

1580/2 1620/2 1630/2 1640/2 1650/2 1680/3 1690/2 

1730/3 1740/2 1770/2 1780/2 1820/2 1830/2 1860/2 

1878/2 1880/3 1890/2 

1370/2 1570/2 1580/2 1640/2 1650/2 1860/2 
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10 ^^ ^^^^♦ ♦♦♦^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦**i> 

28 ' 

30 'PROGRAM TITLE: "PENDULUM/LP" 

48 'R K CURTIS — NOV 18,1978 

50 'CALCULATES PERIOD fiS A FUNCTION OF MAXIMUM ANGLE, LENGTH, AND 
60 'ACCELERATION OF GRAVITY FOR A SIMPLE PENDULUM 
78 'FORMULA: T=2 PI SQR <L/G> Cl-KIC 2)/<2C2>*<SINaHETA/2))C 2 
80 ' 

108 INPUT"ANGLE THETA IN DEGREES ".THETA 

110 PI =2. 141592653589 

120 INPUT"LENGTH OF SIMPLE PENDULUM IN METERS "; L 

130 L=CDBL<L> 

140 PR I NT "ACCELERATION DUE TO GRAVITY— IF ZERO IS ENTERED THEN" 

145 INPUT"A VALUE OF 9.88665 WILL BE USED H ; G 

150 INPUT "INTERVAL FOR ANGLE IN DEGREES "; I 

170 IF G=0 THEN G=9. 80665 

180 G=CDBL<G> 

190 LPRINT"LENGTH = "; L; " ACCELERATION OF GRAVITY »";G 

195 LPRINT" ANGLE PERIOD" 

200 T1=2*PI*SQR(L/G) 

210 PRINTT1; 

228 T=T1 

230 theta=theta*p 1/180 
240 st=sin<theta/2> 

250 SQ=ST*ST 

260 N=l 

270 D»2 

280 F=<N*N)/<D*D) 

290 TM=F*SQ 

308 T=T+TM*T1 

310 PRINTT; 

320 N=N+2 

230 D*D+2 

340 TL-TM 

350 TM»TM*<(N*N)/(D*D))*SQ 

368 IF TL=TM THEN 380 

370 GOTO 300 

380 THETA= < THETA ) +360/ ( 2*P I ) : LPR I NTUS I NG " ###.##"; THETA; 

385 LPR I NTUS I NG "######. ##»###"; T 

390 THETA-THETA+I 

400 IF THETA>98 THEN STOP 

418 GOTO 200 



LENGTH = 


1 ACCELERATION OF GRAVITY = 9. 88665 


ANGLE 


PERIOD 




10. 80 


2. 010240 




15 00 


2. 015040 




20. 00 


2. 021800 




25. 00 


2. 030550 




30. 88 


2. 041340 




35. 88 


2. 054230 




40. 80 


2. 869298 




45. 80 


2. 886618 




50. 00 


2. 186298 





TARGET 
D 

F 

G 

I 

L 

N 

PI 

SQ 

ST 

T 

Tl 

THETA 

TL 

TM 



REFERENCED IN LINE # 
278 280 288 338 338 350 356 
288 298 

145 178 178 188 180 190 200 
150 398 

128 128 130 190 280 
260 280 280 328 328 250 350 
110 200 220 280 
250 290 250 
240 250 250 
220 200 300 210 285 
288 218 228 288 

188 228 228 248 388 288 288 390 298 488 
248 268 
298 280 248 258 258 268 



19 REM IDEA FROM HP 25 CALCULATOR INFORMATION 
EDITED BY RUSSELL STARKEV 
REV B 855 EISENHOWER 

JASPER IN 47546 
— RABBITS « FOXES 



12 
14 
15 
16 
17 
18 
19 
20 
22 
24 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



A = 

B = 

C = 

D = 

E = 

R = 

S * 

T = 



<« . 
>» 



81 >» 



OF D 



25 REM 



26 REM 



) 



ENCOUNTER FACTOR 
H <« STEP SIZE 
NUMBER OF FOXES 
NUMBER OF RABBITS 
NUMBER OF ENCOUNTERS 
INTEGER PART OF C 
INTEGER PART 
PRINT CONTROL 
ST I OF RABBITS 
ST • OF FOXES 
MAX • OF RABBITS 
MAX • OF FOXES 
MIN * OF RABBITS 
MIN • OF FOXES 
START POINT 
DELTA • OF XX 
LIMIT < 4* MAX INPUT 
V. OF BAR 
USED 

• OF BARS CONTROL 
32 CLEAR59:CLS:DEFINT J, X,R, SPRINT 
35 PRINT"T HE RABBITS V 
26 PRINT-A SIMPLE ECOLOGICAL MODEL OF INTERACTING POPULATIONS 1 
38 PRINT-CONSISTS OF RABBITS WITH AN INFINITE FOOD SUPPLV AND 
48 PRINT-FOXES THAT PREY ON THEM. " 
42 PRINT 

44 PRINT"<RABBITS> D =• D ♦ B * (2*D-A*D*C)" 
46 PRINT"< FOXES > C » C ♦ B * <A*D*C-C>" 
48 PRINT-WHERE : D IS CURRENT # OF RABBITS, C FOR I OF FOXES 
52 PRINT" B IS STEP SIZE , A IS THE ENCONTER FACTOR" 

54 PRINT" B = . 82 A = 81 " 

72 PRINT: PRINT: PRINT 
75 INPUT-PRESS ENTER TO CONT. ";S» 

188 as T=8 

105 PRINT: PRINT: PRINT : A= 81 : B=. 82 

118 INPUT" INPUT NUMBER OF RABBITS < 25 

128 INPUT" INPUT NUMBER OF FOXES ( 25 

125 IF J1>J2 THEN JL=J1*3 ELSE JL=J2*3 

138 INPUT-ENTER 8,1,2 FOR I OF BARS ( 



Jl 
J2 
J3 
J4 
J5 
J6 
JA 
JD 
JL 
JP 
JX 
JC 



THE 



FOXES 



488 
408 



;D:J1=D J5=D 
,C 



1 ) ";JC 



135 IFJCO0ANDJCO1ANDJCO2THEN138ELSEIF JC=1THENJC=62ELSEIFJC=2THENJC*127 : JL=1 1*JL 

137 CLS:PRINT8128, "STARTING # OF RABBITS "; Jl; 

138 PRINT8256, "STARTING t OF FOXES "; J2; 



148 


REM MATH START ALSO COME BACK POINT. . . 


158 


E = A * D * C 


168 


C = C*B*<E-C> 


188 


D = D*B*(2*D-E) 


198 


REM PRINT CONTROL SECTION 


288 


R =INT(C) : S =INT(D) 


218 


T = T ♦■ 1 


22» 


IF T = 5 THEN T=0 : GOTO 680 
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256 GOTO 146 

668 REM PRINT COME POINT 

646 IFJ3<S THEN J3=S 

645 IFJ4<R THEN J4=R 

656 IFJ5>S THEN J5»S 

655 IFJ6>R THEN J6»R 

1618 PRINT6398, "NUMBER OF RflBBlTS ";S, 

1611 PRINT6426, "HINV J5i PRINT6436. "MRX"; J3; * "; 

1615 JR-15868:JD-S:G0SU87668 

1628 PRINTt582, "NUMBER OF FOXES " R; 

1821 PRINT8618, "HIN"; J6; :PRINT6628, "HflX"; J4; " "; 

1825 JFM6666:JD-R:G0SUB7668 

1646 IFR-iORS»l THEN 5666 

1656 GOTO 146 

5666 G0T05888 

7666 REM BAR PRINT SUB 

7656 IF JC"8 THEN RETURN 

7168 IFJD>JLTHENFORX-JflTOJfHJC : POKEX, 143 : NEXT : RETURNELSEJP*CSNG< JOJD/JD+JR 

7146 FORX«JfiTOJP-l:POKE X/143NEXT: FOR X-JP TO JR+JCPOKE X, 47 : NEXT : RETURN 

7166 REM HI BOB 



Dear Mr Lloyd; 

In response to your June 79 pg 58 request for 
programs I am forwarding several dynamic display programs. The 
series of 7 'RUN' programs each explore a different type of 
moving perspective display. Each program is relatively short 
and can be set-up on the TRS-80 with a minimum of effort. I was 
working towards a display presentation such as seen on Arcade machines 
in which a driver appears to be moving along a road at a high rate 
of speed. Might have to use machine language to accomplish this 
because of the high speed requirements. Perhaps some of the readers 
can pursue this matter further. 

Program Videol displays some screen print© numbers & decimal 
video memory locations, useful when working with graphics. 

And finally, MAN5 program presents a simple traffic cop 
going through some of his hand motions at an intersection. This 
program can be expanded to put the traffic cop through all sorts 
of wild gyrations using both arms & legs. 

Hope these programs will inspire some of the readers of this 
newsletter to publish improved & varied dyna.-.ic display programs 
of their own. 



Sincerely, 



Roy A. Mempel 

?C Box 3730 

Santa Monica, CA 9C4G3 



10 REM "RUN1" MOVING UP, '['OWN FENCE PROGRAM R HEMFEL. JULV 1"? 

?.Q CLE FIR 99 C'RPSTR A B 

"0 A=CHR*'M63> B=-CHR*^0^ 

40 CLS.C=1 REM * MOVEMENT DOWN * 

50 FOR P=29 TO 1000 STEP 62+PNCK4") : REM ♦ "TART AT TOP * 

60 PPINT9P.R; REM * DRAW LEFT FENCE POST * 

7 ^PINTPP+C, A, REM -+ DRAW RIGHT FENCE POST * 

80 FOR T=l TO 20 NEXT 

90 PRINT0P, B; REM * ERASE LEFT « RIGHT FENCE POST * 

100 C=C+1NEXT 

110 CLS:C=16 REM * MOVEMENT UP * 

120 FOP P=965 TO STEP-65+RN0<4 ' : REM * START AT BOTTOM * 

17JO PPINTOP, A; REM * PRINT LEFT FENCE POST * 

140 PRIHT0P+C+14, A; : REM * PRINT RIGHT FENCE POST * 

150 FOP T=l TO 20 NEXT 

160 PRINT0P, B; REM * ERASE LEFT « RIGHT FENCE POST * 

170 C=C-2 

180 NEXT 

190 GOTO 40 



10 REM "RUN2" FWD MOVING FENCE PROGRAM, R. HEMPEL, JULV 15. 197-3 

20 CLEAR 99 DEFSTR A, B 

20 A=CHR*<168> 

40 B=CHR*<30> 

50 CLS 

*0 C«6 

70 FOR P=10 TO 1000 STEP 65 

88 PRINTGP.B; REM * ERASE LEFT * RIGHT FENCE POST * 

90 FOR T = 1 TO 10 : NEXT 

1O0 PPIHT0P. A; REM * DRAW LEFT FENCE POST * 

110 PPINT(?P+C, Pit REM * DRAW RIGHT FENCE POST * 

120 C=C+2 

130 NEXT 

140 GOTO 60 



10 REM "RUNS" REV MOVING FENCE PROGRAM, P. HEMPEL, JULV 15, 1979 

20 CLEAR 99 DEFSTR A, B 

30 A«CHPf<168> 

40 B=CHP*' 30 > 

50 CLS 

60 C=22 

?0 FOP P=930 TO STEP -65 

80 PRINTC-P-B, REM * ERASE LEFT & RIGHT FENCE POSTS * 

90 FOR r=l TO 10: NEXT 

lOO PPINTi?P, A. REM * DRAW LEFT FENCE POST * 

110 PRINT(?P+C+16, A; : REM * DPAW RIGHT FENCE TOST * 

II'O C=C-2 

130 NEXT 

140 GOTO 60 
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VflR HT MOVING FENCE, 
DEFSTR A, B 



P HEMPEL, JULY 15. 1979 



* RIGHT FENCE POST * 



10 REM "RUN4" 
20 CLEAR 99 : 
30 A1=CHR*<160> 
32 A2=CHR*<16S> 

34 A2=CHR*<170> 
40 B=CHR*<30> 
50 CLS 

68 C=6 

70 FOR P=25 TO 1OO0 STEP 63 
80 PRINT0P, B; :REM * ERASE LEFT 
90 FOR T = 1 TO 10 : NEXT 

92 IF C>15 AND C<25 GOTO 120 

94 IF C>25 GOTO 160 

100 REM * DRRW #1 TO 5 R 4 L SMALL FENCE POSTS * 

110 PRINT0P, Rl : PRINT0P+C, Rl 

120 GOTO 220 

130 REM * DRAW 16 TO 10 R * L MEDIUM FENCE POSTS * 

140 PRINT0P, A2PRINT0P+C, R2 

150 GOTO 220 

160 REM * DRRH #11 TO 16 R i, L LARGE FENCE POSTS * 

170 PRINT6P, R3; : PR I NT0P+C, R3; 

220 C-C+2 

230 NEXT 

235 K»0 

240 FOR K«l TO 12 

250 FOR T«l TO 50 NEXT 

255 PRINTCHR*<26> 

260 NEXT K 

390 GOTO 60 

10 REM "RUNS", * LINE MOVEMENT DOWN * , R HEMPEL, JULY 21,79 
26 CLEAR 2O0 
30 CLS : N«0 

35 P-15 

40 R*-STRING*<P, "-."> 
42 B*-STRING»<1, "*"> 
50 PRINT6P+N, fl*+B»; 
55 PRINT9P+N, B*J 

69 P=P+1 

70 N»N+64 

86 IF N>960 GOTO 100 
90 GOTO 40 

100 FOR T»l TO 300: NEXT 
110 GOTO 30 



10 REM"RUN6". * SHIFTING GROUPS OF PUN 5 *■ R HEMPEL. JULY 23,79 

29 CLEAR 208 

20 CLS:N=0 

25 P=5 

40 R$=STPINGt<P, "-"> 

42 B*=STRING*' 1, "*"> 

50 PRINTGP+N, R$+B*.: 

55 PRINTPP+N, B*.; 

60 P=P+2 

70 N=N+128 

80 IF N>960 GOTO 100 

90 GOTO 40 

100 FOR T=l TO 50 NEXT 

110 CLS:N=64 

130 CLS:N=64 

135 P»7 

140 fi*=STRING*<P, "-•*) 

142 PRINT9P+N, R$+B«; 

155 PRINT9P+N, &*; 

160 P»P+2 

170 N-N+128 

130 IFN>960 GOTO 200 

190 GOTO 140 

200 FOR T*l TO 50 NEXT 

900 GOTO 30 

10 REM "RUN?",* SIMPLE GROUPS OF RUN 5 +, R HEMPEL, JULY 22,79 

20 CLERR 200 

20 CLS:N=0:P«5 

40 R*«STRING*<P, "-"> 

50 PRINT(?P+N, ftti 

60 P-P+2 : N=N+128 

80 IF N>960 GOTO 120 

90 GOTO 40 

130 CLS N=64:P=6 

140 fl*»STRING*<P, "-"> 

150 PRINT0P+N, fl*, 

160 P»P+2 : N=N+128 

180 IF N>960 GOTO 20 

196 GOTO 140 



5 REM "VIDE01" * DISPLAY VIDEO WORKSHEET NUMBERS * 

10 REM "ROY A. HEMPEL, JULY 1 1979" 

12 REM * LEFT COLUMN IS LINE NUMBER * 

14 REM * 2ND « 4TH COLUMNS ARE 'PRINT*' NUMBERS * 

16 REM * 2PD * 5TH COLUMNS ARE DECIMAL VIDEO MEMORY LOCATIONS 

20 CLS P=l : L=0 A=15260 : B* 15260+62 

20 PRINT*., R, 

40 PRINTr*L+4, L; 

50 PPINTi*L +9, A; 

52 IP Li GOTO 60 

54 PPINT9L+22, "VIDEO 1 PROGRAM"; 

60 PPINT0L+44, L+62; 



70 PRINT0L+50, B:. 

30 R=R+l : L=L+64 A^A+64 

120 FOP T = 1 TO 50 : NEXT 

125 IF L>960 GOTO 200 

130 GOTO 38 

200 GOTO 200 



B=B+64 
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1 





15360 


2 


64 


15424 


3 


128 


15438 


4 


192 


15552 


5 


256 


15616 


6 


320 


15680 


■y 


384 


15744 


3 


448 


15808 


9 


512 


15872 


10 


576 


15936 


11 


640 


16000 


12 


704 


16064 


13 


768 


16128 


14 


832 


16192 


13 


896 


16256 


16 


960 


16320 


108 


CLS : 


REM "1 



VI'DEO 1 PROGRAM 



C"> 


15423 


127 


15487 


191 


15551 


255 


15615 


319 


15679 


333 


15743 


447 


15307 


511 


15871 


575 


15935 


639 


15999 


703 


16063 


767 


16127 


331 


16191 


395 


16255 


959 


16319 


1023 


16383 



"TRAFFIC COP" 
110 REM "MANS, MOTIONS IN GOSUB, ROV HEMPEL, JAN 2,1978" 
128 REM "INITIALIZATION" 



130 A = 60 : B - 20 : 
280 REM "HEAD PROGRAM' 



C 



D = B 



A 



F = B 



218 FOR V = 9 TO 17 : 


SET (54, V> : SET <66, V) : 


NEXT V 


228 FOR V = 12 TO 13 


RESET <54. V> : RESET <66 


V) : NEXT 


230 FOR X » 55 TO 65 


SET <X, 9> : SET <X, 17) : 


NEXT X 


248 FOR V = 12 TO 13 


SET<53, V) : SET<67, V) : NEXT 


V:REM "EAR 


400 REM "BODV PROGRAM" 




418 FOR V = 18 TO 25 


SET <68, V) : NEXT V 




428 FOR X ■ 58 TO 62 


SET <X, 26) : NEXT X 




688 REM "LEG PROGRAM" 






618 FOR V « 27 TO 33 


SET <57, V) : SET <63- V) 


NEXT V 


628 FOR X ■ 55 TO 57 


SET <X, 34) : NEXT X 




638 FOR X = 63 TO 65 


SET <X,34) NEXT X 





1880 REM "PROGRAM SEQUENCING" 

1818 G ■ 68 : GOSUB 3100 FOR T = 1 TO 200 : NEXT T 

1828 G - 62 : GOSUB 3188 

1838 GOSUB 5888 : REM "RIGHT ARM OUT" 

1848 G - 61 : GOSUB 3100 

1050 GOSUB 5200 : REM "REM RIGHT ARM BENT UP" 

1068 G » 68 : GOSUB 3180 FOR T = 1 TO 200 : NEXT T 

1070 G * 58 : GOSUB 3100 

1080 GOSUB 5100 : REM "LEFT ARM OUT" 

1898 G = 59 : GOSUB 3100 

1108 GOSUB 5380 : REM "LEFT ARM BENT UP" 

1110 GOTO 1010 

1120 END 

3000 REM "EYES, NOSE, MOUTH PROGRAM" 

3108 FOR X-G-4 TO G+4 : RESETfX, 12) : RESET<X, 13) : NEXT X 

3118 SET<G-2, 12) :SET<G, 13) SETCG+2, 12) : REM "EVE, NOSE, EVE" 

3158 RESET <G-3, 15) : RESET <G-2, 15 ' RESET <G+2, 15) RESET -:G+3, 15) 

3168 FOR X-G-l TO G+l : SET<X, 15) : NEXT X 

3198 RETURN 

3195 END 

5888 REM "RIGHT ARM OUT" 

5818 C * C+l : IF C >■ R + 13 GOTO 5048 

5828 SET(CD) : GOTO 5010 

5038 REM "RIGHT HAND UP" 

5848 SET < CD-I) 

5858 FOR T = 1 TO 288 : NEXT T 

5868 RESET <C, D-l) 

5878 REM "RIGHT ARM IN", 

5888 C » C-l : IF C = A RETURN 

5898 RESET(CD) : GOTO 50SO 

5895 END 



51CO REM "LEFT ARM OUT" 

5118 E = E-l . IF E := A - 18 GOTO 5148 

5120 SET<E, F) : GOTO 5110 

5130 REM "LEFT HAND UP" 

5140 SET(EF-l) 

5158 FOR T = 1 TO 288 • NEXT T 

5168 RESET <E, F-l) 

5178 REM "LEFT ARM IN" 

5138 E = E+l : IF E = A RETURN 

5198 RESETCE, F) : GOTO 5188 

5195 END 

5288 REM "RIGHT ARM BENT UP" 

5285 C = C+l : IF C >= A+ll GOTO 5215 

5218 SETCC+1, D) : GOTO 5285 

5215 D = D-l : IF D <= B-6 GOTO 5238 

5228 SET (CD) : GOTO 5215 

5225 REM "RIGHT HAND PALM FORWARD" 

5238 SET<C D) :SET<C-1, D) :SET<C+1, D) :SET<C D-l) : SET < C+l, D-l) 

5235 FOR T = 1 TO 288 : NEXT T 

5248 RESET <C D) : RESET <C-1, D) : RESET <C+1, D) : RESET <C D-l) : RESET 

5245 REM "RIGHT ARM DOWN 3, IN" 

5258 D ■ D+l : IF D = B GOTO 5268 

5255 RESET (CD) : GOTO 5258 

5268 C = C-l : IF C = A RETURN 

5265 RESET < C+l, D) : GOTO 5268 

5278 END 

5380 REM "LEFT ARM BENT UP" 

5385 E ■ E-l : IF E <■ A-ll GOTO 5315 

5318 SET ( E-l, F) : GOTO 5385 

5315 F = F-l : IF F <= B-6 GOTO 5338 

5328 SET<E, F) : GOTO 5315 

5325 REM "LEFT HAND PALM FORWARD" 

5338 SET<CE, F) ;SET<E-1, F) :SET(E+1, F) SET(E, F-l) :SETCE-1, F-l) 

5335 FOR T = 1 TO 288 : NEXT T 

5348 RESET<E, F) : RESETCE-1, F) : RESET<E+1, F) : RESET <E, F-l) : RESET 

5345 REM "LEFT ARM DOWN « IN" 

5358 F = F+l : IF F = B GOTO 5368 

5355 RESET <E,F) GOTO 5358 

5368 E ■ E+l : IF E = A RETURN 

5365 RESET< E-l, F) : GOTO 5368 

5378 END 



< C+l, D-l) 



<E-1, F-l) 





P = J 


" 1 


Jl 






1 »; 1 1 

li 



fwwtv 



J 



\ 
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Richard W. Rush, Ph.D. 
#16A 337 West Pasadena 
Phoenix, Arizona 85013 



August 31, 1979 



R. Gordon Lloyd 

TRS80 Users Group 

7554 Southgate Road 

Fayetteville, North Carolina 28304 

Dear Mr. Lloyd: 

I submit for publication a program called "Item Index" for 
Level II 16k. It is a program used for storing information 
according to descriptive categories and recovering any desired 
record or records upon request and in a time ranging up to about 
2 minutes. The program functions as a key word selector and 
electronic card sorter. Included here is one version of the 
program with demonstration data, directions for its use and a few 
examples for demonstration. 

The program was developed for Level II 16K, but I believe 
that it could be used effectively in DOS which has greater memory 
capacity. The program can be adapted to several other uses merely 
by changing labels. C.W. Evans of Sun City, Arizona, who is 
credited with valuable suggestions and criticisms, uses six cate- 
gories in his version of the program for storing data pertinent to 
his library of computer programs. I have two different versions 
in use and I plan to use at least four more adaptations. 

As given here, "Item Index" stores, in data lines, reference 
material described under the headings "Subject-Area-Description- 
Remarks-Folder Number". Each data sheet is described for computer 
purposes as it is received and placed in a folder. The folders 
are numbered consecutively and placed in a file cabinet as the 
folders fill. It is not necessary to sort the data sheets for 
filing, *nor does "Item Index" require sorting of data. Storing 
data in data lines makes data additions, changes and deletions 
extremely simple. 

The program displays the number of records in the file and 
the information may be recovered by two methods. In one, the 
entire file may be displayed, as it is typed in data lines, in 
groups of 10 records each. In the other, the user may search 
the records in a single category or a combination of categories. 
In one of my versions which contains 256 records, the search 
pattern was completed in about 1 minute and 45 seconds . A 16K 
machine should hold nearly 300 records. 



With the program in the machine, try the following examples 
after selecting the search portion of the program: 

1. Does the file contain data on computers? 

- type "computer" - press "enter" 

- machine retu: as data in lines 1100, 1110. 



2. Is there data on gas in the U.S.? 

- type "gasU.S." (no commas, no space) - press 
"enter". 

- machine returns data in lines 1120, 1130, 1140, 
1150. 

3. Is there data on gas resources in the U.S.? 

- type "gasU.S. resources" (no commas, no space) - 
press "enter". 

- machine returns data in lines 1140, 1150. 

4. Is there data on a forecast of gas resources in 
the U.S.? 

- type "gasU.S. resourcesforecast" (no commas, 
no space) - press "enter". 

- machine returns data in line 1140. 

5. List the contents of folder 14. 

- type "F-14" - press "enter". 

- machine returns data in lines 1130, 1140, 1150, 
1180, 1200. 



Using the same procedure one might request a list of maps 
the file or data on Arizona. In the latter case, type "Ariz 
recover data listed both as "Ariz" and "Arizona". 



in 
to 



Sincerely, 




40 
90 
100 

110 

120 

120 

140 

150 

1-50 
170 
180 
190 

£.'00 

210 
220 
230 
.-•:40 
250 
260 
270 
2'?0 
230 

200 

310 

220 
330 
240 



h.D. 



ITEM INDEX, R. W PUSH, PH. D. , 197? 

DATA IN GROUPS OF 5 ON DATA LINES 
CLEAR 2000 

CLS PRINT" ITEM INDEX" : PR I NT "LOADING DATA— PLEASE WAIT 
F=0 . FOP D5=1TO260 READ Al*. A2*, A3*. A4t, A5* : F=D5-1 
IF Al**"" THEN 150 
NEXT D5 
RESTORE 

CLS:PRINT0148» "PROGRAM INDEX" 
PRINT"DPTA RECORDS 

PR I NT "THERE APE"; F; "RECORDS IN THE FILE" 
PRINTG404. "OPERATION CODES" : PRINT 
PR I NT "1 - TO LIST FILE CONTENTS" 
INPUT "2 - TO SEARCH FOR KEYWORDS"; A 
IF A=2 THEN 3*0 
CLS GOSUB 500 PRINT 
FOR Bl = 1 TO F 

READ Alt- A2t, A3*, R4f. R5* GOSUB 520 
IF Al*="" THEN 320 
IF Bl. '10 :.MNT<B1/10> THEN 310 
PPJNT PRINT" HIT EN T EP FOR MOPE 

2f=INKEV* IF.". t=- " ; HEN 290 
CLS: GOSUB 300 



NEXT Bl 

PRINT PR I NT "NO. OF 

INPUT "END OF LIST 

RESTORE 



ITEMS =":F 

TYPE 1 FOR REPEAT 



FOR CODES"; B2 
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£3*) IF kik = 1 THEN 220 ELSE 1.60 

260 CLSPRIHT0140, "SEARCH PROGRAM" : PRINT 

270 PRINT"TVPE ONE OR MORE KEY WORDS. WITH NO COMMAS OR SPACES" 

280 PRINT" BETWEEN CATEGORIES 

290 PR I NT "FOLLOW THE ORDER SHOWN IN THE HEADING 

400 PRINT"SEARCH MAV BEGIN AT ANV POINT IN THE SEQUENCE. " 

410 PRINT: INPUT "SEARCH PATTERN KEYWORD <s> " V*:CLS:GOSUB 5O0 

429 FOR Bi « 1 TO F: READAli, A2S, A3* A4t, A5* 
420 X$«A1$+A2*+A2*+A4$+A5*+A6$ GOSUB 540 
440 IF I » THEN 460 

450 GOSUB 520 
460 NEXT Bl 
470 RESTORE 

430 PRINT: INPUT "ANOTHER SEARCH <V/NV'; Z* 
490 IFZ*«"Y" THEN 260 ELSE 160 

500 PRINTTAB<1>"#"; TAB<5> "SUBJECT"; TAB<18>"AREA"; TAB (22V DESCRIPTION ' 

505 PRINTTAB<46> "REMARKS"; TAB<56> "FIL. #" 

510 RETURN 

520 PRINTTAB<0>B1; TAB<5>A1*; TAB<18)A2*; TAB<22>A2*; TAB(46>A4$; 

523 PRINTTAB<56)fl5* 

520 RETURN 

540 FOR I»l TO LEN<X*>-LEN<Y*>+1 

550 IF V*=MID*<X«, I,LEN<Y*>> RETURN 

568 NEXT: I»0: RETURN 

1010 DATA OIL, MIDEAST, REPORT, SUMMARY, F-l 

1020 DATA LAND, ALASKA, STATUS, REPORT, F-6 

1020 DATA EXPLOR. , ALASKA, MAP, AREAL, F-6 

1040 DATA URANIUM, MINERALS, CHART, TYPES, F-7 

1050 DATA URANIUM, WORLD, STATISTICS, SUPPLY, F-7 

1060 DATA URANIUM, U. S. , REPORT, MAP, F-7 

1070 DATA URANIUM, CANADA, SUMMARY, TABLES, F-6 

1080 DATA OIL, ARIZONA, LEASES, ANSCHUTZ, F-8 

1090 DATA SYNFUEL, U. S. , EDITORIAL, SUMMARY, F-9 

COMPUTERS, OIL « GAS, METHODS, DRILLING, F-12 

COMPUTERS, OIL * GAS, STATISTICS, EXPERIMENT, F-12 

GAS, U. S. , PRICES, 1979, F-14 

GAS, U. S. , LAW, DECISIONS, F-14 

GAS, U. S. , RESOURCES, FORECAST, F-14 

GAS, U. S. , RESOURCES, DISCOVERY, F-14 

OIL, NORTH SEA, MAP, LEASES, F-29 

GEOLOGY, COLOMBIA, MAP, AREAL, F-l 

OIL, U. S. , RESERVES, METHOD, F-14 

GEOLOGY, GUYANA, MAP, AREAL, F-l 

OIL, U. S. , REPORT, AREAS, F-14 

GEOLOGY, SURINAM, MAP, AREAL, F-l 

OIL, MEXICO, REPORT, SUMMARY, F- 

GOLD, ARIZ, NEWS, HISTORY, F-25 

FLOODS, PHOENIX, REPORT, NEWS, F-25 

TAR SANDS, WORLD, REPORT, BRIEF, F-28 



PROGRAM INDEX 
DATA RECORDS 
THERE ARE 25 RECORDS IN THE FILE 

OPERATION CODES 

1 - TO LIST FILE CONTENTS 

2 - TO SEARCH FOR KEYWORDS? _ 



1100 


DATA 


1110 


DATA 


1120 


DATA 


1120 


DATA 


1140 


DATA 


1150 


DATA 


1160 


DATA 


1170 


DATA 


1180 


DATA 


1190 


DATA 


1200 


DATA 


1210 


DATA 


1220 


DA*TA 


1220 


DATA 


1240 


DATA 


1250 


DATA 


1260 


DATA, 



N 


SUBJECT 


AREA 


DESCRIPTION 


REMARKS 


C IL 


1 


OIL 


MIDEAST 


REPORT 


SUMMARY 


F-l 


2 


LAND 


ALASKA 


STATUS 


REPORT 


F-6 


3 


EXPLOR 


ALASKA 


MAP 


AREAL 


F-6 


4 


URANIUM 


MINERALS 


CHART 


TYPES 


F-7 


5 


URANIUM 


WORLD 


STATISTICS 


SUPPLY 


F-7 


6 


URANIUM 


U. S. 


REPORT 


MAP 


F-7 


7 


URANIUM 


CANADA 


SUMMARY 


TABLES 


F-6 


S 


OIL 


ARIZONA 


LEASES 


ANSCHUTZ 


F-8 


9 


SYNFUEL 


U. S. 


EDITORIAL 


SUMMARY 


F-9 


10 


COMPUTERS 


OIL * GAS 


METHODS 


DRILLING 


F-12 



HIT ENTER FOR MORE. 



* 


SUBJECT 


AREA 


DESCRIPTION 


REMARKS FIL 


11 


COMPUTERS 


OIL * GAS 


STATISTICS 


EXPERIMENTF-12 


12 


GAS 


U. S. 


PRICES 


1979 F-14 


12 


GAS 


U. S. 


LAM 


DECISIONS F-14 


14 


GAS 


U. S. 


RESOURCES 


FORECAST F-14 


15 


GAS 


U. S. 


RESOURCES 


DISCOVERY F-14 


16 


OIL 


NORTH SEA 


MAP 


LEASES F-29 


17 


GEOLOGY 


COLOMBIA 


MAP 


AREAL F-l 


18 


OIL 


U. S. 


RESERVES 


METHOD F-14 


19 


GEOLOGY 


GUYANA 


MAP 


AREAL F-l 


20 


OIL 


U. S. 


REPORT 


AREAS F-14 



HIT ENTER FOR MORE. 



« 


SUBJECT 


AREA 


DESCRIPTION 


REMARKS 


FIL. 


21 


GEOLOGY 


SURINAM 


MAP 


AREAL 


F-l 


22 


OIL 


MEXICO 


REPORT 


SUMMARY 


F- 


22 


GOLD 


ARIZ 


NEWS 


HISTORY 


F-25 


24 


FLOODS 


PHOENIX 


REPORT 


NEWS 


F-25 


25 


TAR SANDS 


WORLD 


REPORT 


BRIEF 


F-28 



NO. OF ITEMS = 25 

END OF LIST. TYPE 1 FOR REPEAT: 2 FOR CODES? _ 



SEARCH PROGRAM 

TYPE ONE OR MORE KEV WORDS, WITH NO COMMAS OR SPACES 

BETWEEN CATEGORIES. 
FOLLOW THE ORDER SHOWN IN THE HEADING. 
SEARCH MAV BEGIN AT ANY POINT IN THE SEQUENCE. 



SEARCH PATTERN KEYWORD <S> 



? GAS_ 



* 


SUBJECT 


AREA 




DESCRIPTION 


REMARKS FIL 


10 


COMPUTERS 


OIL « 


GAS 


METHODS 


DRILLING F-12 


11 


COMPUTERS 


OIL * 


GAS 


STATISTICS 


EXPERIMENTF-12 


12 


GAS 


U. S. 




PRICES 


1979 F-14 


13 


GAS 


U. S. 




LAW 


DECISIONS F-14 


14 


GAS 


U. S 




RESOURCES 


FORECAST F-14 


15 


GAS 


U. S. 




RESOURCES 


DISCOVERY F-14 
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Dear Mr. Lloyd » 

Please replace the SUPERBAGELS cassette I 
sent you with my letter of July 23 with the 
inclosed cassette. It is revised to include 
corrections Ted Lau, the author, sent me after 
studying the print out you sent him of my 
first efforts to convert his Level I program 
to Level II. I have also renumbered the program 
and made minor changes. 

Ted suggests that the Level II version 
would be neater if the single array used for 
Level I were replaced by 6 different arrays. 
He gave me detailed instructions for making 
the changes but so far I have not been able 
to get it to work with the six arrays. 

Yours very truly, 



(S^^tV^v^- 



Inclosed t 

SUPERBAGELS cassette 



Copy to Ted Lau 



P. S. I will make a copy for anyone who is 

interested for a cassette plus postage 
or equivalent. 



16 ' SUPERBAGELS 

29 'LEVEL I VERSION BY TED LRU PUBLISHED NC NEWSLETTER V2 P. 39 
38 'CONVERSION AND MINOR CHANGES BV: 
C W EVANS, (602) 933-1616 
9886 AMBER TRAIL/ SUN CITV. A2 85351 
CORRECTIONS MADE PER NOTE FROM TED LAU. 

RENUMBERED. VERSION OF 6V19/79, 7 PM 



snaniiMiissss: 



48 
58 

188 

118 CLS 

128 DIM A(288> 

138 DEFINT B-F, V-Z 

148 INPUT-WELCOME TO SUPERBAGELS. INSTRUCTIONS 'V/N)M» 

158 IFI$0"Y"THEN 228 

168 PRINT" SUPERBAGELS IS A DEDUCTION GAME IN WHICH VOU ARE TO" 

165 PRINT-ATTEMPT TO GUESS A STRING OF DIGITS (OR CODE) GENERATED BV THE" 

178 PRINT-PROGRAM. THE PROGRAM WILL INFORM YOU AFTER EACH GUESS "OW MANY" 

175 PRINT-OF THE DIGITS IN VOLS GUESS ARE IN THE PROPER POSITION ■ P), " 

188 PRINT-AND HOW MANY DIGITS APE OF ^HE PROPER VALUE (V) BUT IN THE" 

185 PRINT-WRONG POSITION. YOU MAY REVIEW YOUR PREVIOUS GUESSES OR" 

198 PRINT-GIVE UP AT ANY TINE. 

YOU MAY INCREASE THE DIFFICULTY OF THE GAME BV INCREASING 
289 PRINT-THE NUMBER OF POSITIONS IN T HE CODE, BY INCREASING THE 
NUMBER OF VALUES AVAILABLE FOP EACH POSITION <8 IS NOT USED), 
218 PRINT-AND BY ALLOWING THE SAME VALUE IN MORE THAN ONE POSITION. 

HAPPY DEDUCING'": PRINT 
212 PRINT: PRINT" HIT ENTER TO PLAY 
214 Z*-INKEV$:IF Z$-""THEN 214 
228 RANDOM 
238 CLS 



240 PR1NT88, "", : INPUT "ENTER MAXIMUM DIGIT VALUE <2-9) "C 

258 IF C<2 OP C>9 THEN 248 

268 PRINT964, ""; . INPUT "ALLOW DUPLICATE DIGIT VALUES <Y.'N) ";E* 

278 IF E**"N" THEN E=l ELSE E=2 

280 PRINTG128, "i : INPUT "ENTER NUMBER OF DIGITS (2-6) ";D 

298 IF CD<2 OR D>6) OR <E=1 AND C<D) GOTO 280 

300 P=1:IF E=2 THEN FOR 1*1 TO D:P=P*C:NEXT I 

318 IF E=l THEN FOR I«l+C-0 TO C P=P*I:NEXT I 

328 PRINT: PRINT-ONE OF"; P; "POSSIBLE VALUES IS NOW BEING GENERATED" I «1;A=1 

338 A(I)=RND(C):IF E*2 OR 1=1 GOTO 368 

349 F=8:F0R J«l TO 1-1 IF A(J)=A(I) THEN F»l 

358 NEXT J: IF F»l GOTO 338 

368 IF DM THEN 1*1+1: GOTO 338 

378 W*8:B=8:F0R I»l TO D:A(I+12)«8:NEXT I 

388 PRINT-REVIEW (1), GIVE UP (8), OR GUESS ";Aj" "; INPUT G 

398 IF G<8 THEN 388 

488 IF G=8 PRINT-VALUE WAS "i :FOR I«l TO DPRINT A(I); :NEXT: 

PRINT: GOTO 548 
418 IF G=i AND A>1 GOSUB 578 : PRINT :GOTO 388 
428 J-1:F0R I«l TO D:>18*J:NEXT: IF G>«J GOTO 388 
438 J»J/10:IF G<J GOTO 388 

448 A(18+3*A)»G:G-G/J:F0R 1*1 TO D:A(I+6)*INT<G> 
458 IF A( 1+6X1 OR A(I+6»C THEN F*l 
468 IFA(I)«A(I+6) THEN B=B+1:A(I+12)»1 
478 G«18*(G-INT(G>+ 888881) NEXT: IF F»l THEN 378 

488 IF B*D PRINT: PR INT "YOU HAVE DEDUCED THE VALUE IN "; A; "GUESSES" : GOTO 548 
498 FOR 1*1 TO D:J»1:IF A(I+12)*1 THEN 528 

588 IF A(J)=A(I+6) AND A(J+12>=8 THEN W«W+i:A(J+12>*2:G0T0 528 
518 J*J+1:IF JX> THEN 528 ELSE 588 
528 NEXT:PRINTTAB(46>, "P=";B;TAB(54>;"V*";W 
538 A(16+3*A)*B:A(17+3*A)*W A*A+1:GOTO 370 
540 INPUT-WANT TO PLAY AGAIN (V/N) "; 1$ 

558 IF I**"N" PRINT-GLAD VOU ENJOYED SUPERBAGELS. PLAY AGAIN SOON. "END 

568 CLS GOTO 388 

578 CLS:FOR 1*1 TO 3:PRINT9(18*I-12), "• GUESS P V"; NEXT 

588 X=68:Z*8:F0R 1*1 TO A-l 

598 IF X>42 THEN X*5:Z=Z+64 

699 PRINTt(X+Z), L 

619 PRINT9(X+Z+3),A(18+3*I); 

62A PRINTt(X+Z+10),A(16+3*I); 

639 PRINT9(X+Z+12),A(17+3*I); 

649 X=X+18: NEXT: RETURN 



FNTER MAXIMUM DIGIT VALUE <2-9> ? 9 
ALLOW DUPLICATE DIGIT VALUES (V/N) ? N 
ENTER NUMBER OF DIGITS (2-6) ? 5 

ONE OF 15120 POSSIBLE VALUES IS NOW BEING GENERATED 
REVIEW <:i), GIVE UP (O). OR GUESS 1 ? 11111 



REVIEW '1-, GIVE UP (0), OR GUESS 

REVIEW (.!>, GIVE UP <0), OR GUESS 

PEVTFU <.!•>, GIVE UP CB>. OR GUESS 

REVIEW (1>. GIVE UP C0). OR GUESS 

REV I EN •'!'>. GIVE UP (©>• OP GUESS 



2 ? 22222 

3 '"■ 33332 

4 ? 44444 

5 ? 55555 



p» v= 

P= 1 V= 

P= 1 V= 

P= 1 V= 

P= v= 
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C. W. Evans 
9806 Amber Trail 
Sun City, AZ 85351 
(602) 933-1616 



August 27. 1979 



R. Gordon Lloyd 
TRS-80 Users Group Newsletter 
755^ Southgate Road 
Payetteville , NC 28304 

Dear Mr. Lloyd t 

Inclosed is a cassette with two loads of my 
TAFETESTER program. The program is 16K but can 
be abbreviated to 4K. It is in Level II but 
could be written in Level I . It consists of a 
series of meaningless lines that completely fill 
the machine's memory. The program is saved on the 
tape to be tested and then loaded and listed. It 
tests the tapes for dropouts. If instead of 
testing by loading, the CLOAD? command is used, 
the tape will stop at the first bad point. A 
good tape will show READY after testing. 

The high output tapes such as Ampex Plus and 
Memorex MRX-, have a greater dynamic range than the 
cheaper tapes and give better results. I have 
also had pretty good results with some of the 
cheaper tapes such as Concert C-30 or C-60. 

Most of the program is the Quick Brown Fox 
and is monotonous to type . If your users want to 
avoid the work, they can send me $2 for a cassette 
of the program and of my other programs which have 
been published in your Newsletter. 

For loading problems with Level II, I strongly 
recommend bridging a Radio Shack VU meter in series 
with a non-polarized 5 MF capacitor across the 
earphone jack. On request, I will include a sketch 
of this along with the cassette. 

Yours very truly, 



Cj/l/h*<&^o~ 



P. S. Be sure to li3t your load to see that it is 

good before saying it on the tape to be tested 
Also run the program to check the remaining 
memory which should be 58 for a 16k machine. 



1@ 'TAPE TEST PROGRAM 1/21/7? 

28 'C. W EVANS, '682.' 933-1616 

9806 AMBER TRAIL, SUN CITY. AZ 85351 

30 'NEXT LINE IS CLEAR 16K MEM 

40 "53 

50 CLS. PR I NT "TAPE TEST PROGRAM" PRINT 

55 PRINT"THE PROGRAM CONSISTS OF A SERIES OF MEANINGLESS LINES " 

60 PR I NT: PR I NT "AFTER BEING LOADED IT SHOULD BE LISTED TO CHECK, 

THEN SAVED ON THE TAPE TO BE TESTED. " 

70 PRINT -PR INT "NEXT, THE PROGRAM SHOULD BE CHECKED BV THE CLOAD? COMMAND. 

TAPE WILL STOP AT THE FIRST BAD POINT " 

80 PRINT :PRINT H A GOOD TAPE WILL SHOW: READY 

> AFTER TESTING 

90 PR I NT "MEMORY* "; MEM: END 

100 



110 'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S BACK 
120 'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S BACK. 
130 'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S BACK. 
140 'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S BACK. 

150 ' 

160 
170 
180 



1234 
1234 
1234 
1234 



'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S BACK. 

'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S BACK. 

'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S BACK. 
190 'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S BACK 

290 ' 

210 'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S BACK. 
220 'THE QUICK BROWN FOX JUMPED OVER THE LAZV DOG'S BACK. 
230 'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S BACK. 
240 'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S BACK. 
250 ' 

260 'THE QUICK BROWN FOX JUMPED OVER THE LAZV DOG'S BACK 
270 'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S BACK. 
280 'THE QUICK BROWN FOX JUMPED OVER THE LAZV DOG'S BACK. 
290 'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S BACK 
200 / 



1234 
1234 
1234 
1234 



1234 
1234 
1234 
1234 



1234 
1234 
1234 
1234 



2090 

2100 

2110 
2120 
2130 
2140 
2150 
2168 
2170 
2180 
2198 
2200 



'111111111111111111111111111111111111111111111111111111111 
'222222222222222222222222222222222222222222222222222222222 
'333333333333333333333333333333333333333333333333333333333 
'444444444444444444444444444444444444444444444444444444444 
'555555555555555555555555555555555555555555555555555555555 

'666666666666666666666666666666666666666666666666666666666 
'777777777777777777777777777777777777777777777777777777777 
888888888888388888888888888388888888888888888888888888888 
999999999999999999999999999999999999999999999999999999999 

' 000000008000800000000000086000000000000000000000000000000 



2210 1234567890 1234567890 1234567890 1234567898 1234567890 
2220 '1234567390 1214567890 123456?890 1234567390 1234567890 
2230 '1234567890 1234567890 1234567890 1234567890 1234567890 
2240 '1234567890 1234567890 1234567890 1234567890 1234567890 
2250 '1234567890 1234567398 123<»56?390 1234567890 1234567390 
2260 ' 

2278 1234567890 1234567890 1234567390 1234567390 1234567390 
2230 '1234567890 1234567390 1234567S90 1234567898 1234567398 
2298 MEM 58 
2388 END 
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